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o=—— PROGRAM DESCRIPTION|L___ 





FOOTBALL 


This is pro-style football. The player assumes the role of quarterback and 

defensive signal-caller for the team. The opponent is the HP-75. There are 
14 available offensive plays (8 runs, 6 passes) and 4 defensive alignments, 

along with field goal, punt, and quick kick capabilities. 


There is a two-minute warning before the end of each half. Five to seven 
plays are left in the half at that point. At halftime, the player may view 
cumulative statistics for their team and the opponent. 


Call all plays by their corresponding number: 





OFFENSE Runs: 1 = Dive 2 = Off Tackle 
3 = Scissors 4 = Trap 
5 = Sweep 6 = Option 
7 = Reverse 8 = Draw 
Passes: 9 = Sideline 10 = Look-in 
11 = Rollout 12 = Screen 
13 = ‘Fly’ 14 = ‘Post’ 
Kicks: 15 = Field Goal 16 = Punt 
17 = Quick Kick 
DEFENSE 1 = 'Pass Rush' (4-3) 2 = 'Okie' (5-2) 


3 = 'Short-Ydg' 4 = 'Prevent'’ 





Ss J USER INSTRUCTIONSL____1 





INSTRUCTIONS DISPLAY INPUT 
ee! FOOTBALL 
[RTN} or 
ption to view play codes Do you need a list of plays?N y [RIN] 
ik than siete Ne cece necro 
Enter team name (<=10 chars.) |Name of your team? aaaa [RIN] 


CO 


Opponent Your opponent is the HP-/5 
. If HP-75 wins I won the toss and will receive 


Option to kick or receive ball:| Kick of Receive? K or R [RIN] 


O 
° 
— 
5 
ct 
Oo 
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— 


Get ready for the kickoff 


On 


Y 
fey rm 
“™ 


nn yard kickoff! 





Ball is on HP-75 or aaaa_ yard Be 


f : 
in Ball on aaaa] nn yard line 
If player is offense: X down aaaa X to go 


K 
] 


~ 


— 
| 


Enter offensive play code: Your play (1-17 1-17 [RIN] 
eer ee 
a | If HP-75 is offense X down HP-75 X to go 
Fnter defensive play code: Enter defense (1-4): 1-4 [RIN] 
Display plays choser 
5 = Pay 
Display play results play results 
Display current yard line, Ball on | aaaaj nn yard line 
its dae i dae 
0 | Touchdowns. Add 6 points to Touchdown | aaaa | 





USER INSTRUCTIONS 
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TEP INSTRUCTIONS 7 DISPLAY INPUT 


C4 


extra point (if qood, add to 


score) and goto step 5. 


WY 
sy 
—h 
ap) 
ct 


ected 
Kickoff from 20 yard line and re 
goto step 5a. Kickoff from | aaaa} 20 yd line 
Penalties. If holding HOLDING 
If offside OFFSIDE 
HP -7 
Penalty on | aaa 
If penalty on aaaa: Penalty accepted: nn yards 
If penalty on HP-75: Accept the penalty (Y/N) Y or N [ERTN] 
4 kx HALFTIME *** ta 
3 |At halftime and end of game, *”K*k FND OF GAME *** 
qive option to view statistics:]| View statistics? Y or N [RTN 
statistics for aaaa 
After end-of-game statistics Co 
dive option to play another PL 
[another ganery RT 
A Another game ?Y N {| RTN 
cs madnkeiee 6 


NO 


> — — a i 
> NO 1 
sy 


win 
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TTC VART ABLE NAMES 





DESCRIPTION 


Storage for L, G 


NAME DESCRIPTION 


Indicates second half Downs 


19,69 
F1.F2 Figure distance to goal 
Help determine yards 

gained or lost for a pla 


Statistics 


Players team name 


E 
D$ 
F$ 
OS 


User Interaction 


ot) |stats Tae 
Indicates safet U Constant for Y 
Indicates extra point rae Fudge factor for Y 
rr Penalty yards ae | Defensive pla 
Flag to show game over Index and loopinc 
acl POU AINE cas a ps Lam. Beene so 
T Timer : in_possession 
HP-75's score | oy lyanas gained, lost 
se Yards gained before Fe Indicates possession 
S lst down 15 in 2nd half 
to goa] $ Offensive plays 


Gl 
TisZ 
EG 





gq __INOTES AND REFERENCESL 


Notes: 1. There is a slight pause for initialization before the 
program begins. 





2. To omit play list from program: Omit step 1 from User 
Instructions. Delete lines 140-280. Delete lines 
5020-5190. 


Reference: "FOOTBALL", HP-85 Basic, Hewlett-Packard. 


TCU PROGRAM LISTINGL 





! FOOTRALL 

20 ! 
! Revision 44/01/82 

40 ! 

SO DELAY 3 

60 RANDOMIZE 

70 INTEGER (45) ,S8,R2,P8,29,D,T,51,52 
sP2eP soy ely) ie 2 

80 INTEGER HS,E9,K,F1,L,G6,D9,1,W 

90 INTEGER L¢45),6¢15) 

4.00 DIM ES$li67) , D$L12]7 ,F¢1557,RE0101,Q% 
[4] -24(52] 

440 DEF FNFCX) = SINCPITXRND) -Function for generating random 

number 

420 DISP TAK(412);°FOQOTKALL ’ 

430 S8,R2,P8,29,D,7T,81,S2,P1,P,5,61,T1, 
Z=9 

450 FOR IT=4 TO iS 

460 KC1I)=0 

4.70 NEXT I 

180 RESTORE 

490 FOR IT=1 TO S 

200 READ FOLAIKI-1L0,14%1) 





240 NEXT I ¢ 

220 DATA POINIS,FIRST DOWNS ,YDS-RUSH, YD 
S-PASS , YDS-PENALTY 

240 GN ERROR GOTO 250 

SO INPUT “Do you need a list of plays? 

/ . 7A / 30% 

260 Q$=UPRCS$(O%04,41) @ IF Q&’Y’ AND GQ 
$¢/°N% THEN 250 

270 OFF ERROR 

260 IF Q%=’Y¥"’ THEN GOSUE 5020 

2970 ON ERRGR GOTO 300 

300 INPUT ‘Name of your team?’ ,CHRE (95) 
;R 

340 IF R#=CHRE(95) THEN 300 

320 IF LENCRH)>40 THEN R#=UPRCHORGL4L, 16 
1) ELSE R#=UPRCS CRS) 

330 OFF ERROR 

$40 DISF ° Your opponent is the HP-75 


450 DISP 

360 FOR T=4 TO 47 

370 READ ESULAUKI-410,i4%7) 

480 NEXT I 

$90 DATA DIVE ,OFF TACKLE , SCISSORS , TRAP 
400 DATA SWEEP ,OPTION,REVERSE ,DRAW, SIDE 





UNE 
440 DATA LOOK-IN,ROLLOGUT ,SCREEN,FLY,POS ty 
1 ' 
420 DATA FIELD GOAL ,PUNT,QUICK KICK 
430 FOR T=4 TO 4 
440 READ EXtlixkig-te,T*i3l 


, — PROGRAM LISTINGL 


450 NEXT I 

460 DATA PR,OKIE ,SHORT YARDAGE ,PREVENT 

470 FOR T=41 TO 4 

480 READ D&lIk3-2,1%*3) 

490 NEXT I 

5G0 DATA ’ist’,’@nd’ ,’3rd’ ,’4th’ 

540 FOR T=4 TO 414 

520 READ LCT) ,G¢1) 

530 NEXT I 

©40 DATA 2,7,3,10,5,15,5,20,3,10,7,15,9 -Yardaqe loss/qain data for 


yao offensive plays 
550 DATA &,45,5,10,5,140,7,15,10,20,10,5 
0,40,40 


60 HY=25 
570 E9=50 
580 T5,@=41-2KIP ORNDK2) 
SOO IF G90 THEN 620 
600 DISP ’I won the toss and will recei 
ve.’ 
610 GOTO 696 
620 DISP R%;’ won the toss.’ 
640 ON ERROR GOTO 640 
640 DISF CHRE(203);’%ick or “% ,CHRS(210),; 
650 INPUT ’eceive?’ ,CHRS& (9S) ;Q% 
” 660 QH=UPRCHCGEE 4,449) 
&70 OFF ERROR 
&80 ON POSC’KR’ ,Q@$)+4 GOTO 630,710,590 
690 G=-QQ 
700 IF 2990 THEN 4920 
710 X=50-10%«G 
720 DISP ’Get ready for the kickoff !!7 
730 FOR N=4 TO 20 
740 Y=B0+TP C4OKXFNF C4) ) 
750 BEEP © BEEP @ BEEP 
760 DISP Y3;’yard kickoff!’ 
77Q K=EXtGry 
70 TF @=4 THEN 81.0 
790 IF X>0 THEN 960 
3800 GOTO 820 
Si0 IF X¢i00 THEN 900 
G20 DISP TARCS); 7X * & TOUCHBACK kK K XX’ -~Touchback~ ball will be 
brought out to the 20 yard 
laire 
G30 D=9 
$40 IF PIS THEN &70 
B50 X=X~ KY 
S860 IF ABRSCSO-XI¢30 THEN 8a 
7G Ke=S0+ 50K 
880 G=-Q 


" 890 COTO 950 
S00 IF P44 THEN 920 


SAO R=TPC40KF NF C4) 
Se Uj Gist () 
$30 DISP R;’yard runback. ’ 


CUI PROGRAM LISTING 


940 
950 
760 
970 
$80 
90 
1000 
4,040 


1020 
4,030 
4040 
1050 


4060 
4070 
10380 
1090 
44100 
4440 
4420 
44.49 
4440 
4450 


14.60 
1470 


1460 
1490 
4.2200 
A240 


iQ) 


42.50 
1.240 
1250 
47250 
4.23.0 
4290 
4400 


4510 
4.520 
4330 
1440 
£350 
4,355 
4.360 
447 0 
4480 
4.390 
4400 








¢ 


X= A+ GER 


RPA 


COSURB 


GOTO 


= {} 
980 
10390 


IF X950 THEN 1010 


DISF 
GOTO 
DISF 

lin 
RETU 


‘Wall on ’;R%3;X%;’yd line’ 

1020 

‘Kall on HP-75/% ;ABSCX-100) 5 ’yd 
gq?’ 
RN 


D=D+4 


COTO 
FARA 


1090 
BS (X~ (Q+4)/72%1090) -~Aid in determining distances 


to goals 


RETURN 
Fe=ARS(X~-(Q—4)/2%100) 


RETU 
IF D 
Le OF 
5= Q 

GCOSU 
IF F 
IF Q 


RN 
i THEN 1200 
St} THEN 1120 


KH 1050 
44240 THEN 14190 
se 4 THEN 1470 





DISF ‘’45t down ’3;R%;% %;ABSCLO-S) ; ’ 
to ga’ 

GOTO 1230 

DISF ‘4st down HP-75 %;AHSCL0-S) 5 7t 
Oo go’ 

GOTG 1230 

Gi=4 

DISP D&LDK3-2,DK31;% down 7; , 

IF G=-4 THEN DISP “’HP-75 ’;ELSE DIS 
PRES 73 

IF Gi¢=0 THEN DISP ARSCI0-S);,’%to go 


* Ele 
P= 0 
P4=P 


SE DISP “% goal to go’ 


@ P= 


GOSUBR 4440 


IF Z>0 THEN 4340 

IF G90 THEN 1640 

GOTO 2260 

IF DL THEN 14.30 “Begin analyzing defense 
(player) to choose offense 

P=4i+TP 03. SXRND)X4 

GOTO 1720 

IF D2 THEN 4420 

TF @BSC40~-5993 THEN 1370 

TF P4>42 THEN 1314.0 


fz 4 + 
GOTO 
IF P 
Tr F 
P=P4 
GOTO 


IP (SXRND) 
1720 

»42 THEN 1310 
4>8 THEN 41410 
i. 

4.720 





— PROGRAM LISTINGL____ 





1414.0 
1420 
1450 
1,440 
4450 
1460 
14770 
4480 
4.490 
1500 
1540 
1520 
4530 
4540 
i550 
4560 
1570 
iS et 
4590 
1600 
4.640 
16:20 
16340 
4640 
1650 


1660 
1670 
44650 
4699 
4700 
474.0 
L728 


1750 
4740 
1750 
4760 
4.770 
4780 
4790 
13090 
4&4 0 
182 
4.6.50 
1340 


1356 
1360 
470 
4&9 9 
4690 


4900 


ON IPC@xXRND) 44 GOTO 1340,1390 
TF DOS THEN 41540 

TF ARS(40-S)>3 THEN 1460 
P=4+44 TP (2XRNDI+TP C2XRND) 
GOTO 1720 

TF ARS(40-S)96 THEN 1480 
GOTO 1490 

IF ABS (410-S)>44 THEN 1510 
PsP + 4 

GOO 1490 

IF ARS(10-5)9¢25 THEN 1350 
Pa 4 (7 

GOO 1720 

GOSURK 4050 

IF F4i>?40 THEN 1620 

IF ABS(10-$2>93 THEN 1580 
GOTO 1440 

GOSUB 4050 

IF Fid25 THEN 1620 

P=45 

COTO 1720 

P=416 

GOTO 472 

ON ERROR GOTO 1650 

INFUT “Your play (4-47) +7, CHRS(9S) ; 
p 


IF PO47 THEN 1700 
re P¢i THEN 1700 
OFF ERROR 


GOTO 41720 

DISP “Try aqain. ’ 

GOTO 1640 

TF @=4 THEN DISP R&;?: 
HP aos SS 

DISF E*¢=Pxi4-40,PxX14) 
IF P<45 THEN 4760 

ON P-414 GOTO 1800,2040,2100 
L=L CP) 

(=G6¢P ) 

TF @40 THEN 2325 

GOTO 2160 

! FIELD GOAL ROUTINE. 

YeTP CPNF CL) X50) 

GOSUR 4056 


DSP 


‘ELSE 


TF YL G&XF 4 THEN 41860 

BEEP @ DISP ” Field qoaal is block 
ed bb’ 

GOTO 1940 

K=X+ VK Y 


IF Y¥CR4+i0 THEN 1920 

IF .O5¢40/F4i¢RND THEN 41920 

BEEP @ DISP TAR(6);’Field qoal is g 
ood Ell’ 

PO=S 


-Flayer is offense ~- must enter 
play number 
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i710 
4920 


4930 
1740 
1950 
1760 
49°70 
i780 
9799 
<~900 
2040 


2020 


2030 
24g 
2050 
2060 
2070 
2080 
2O90 
Zid 
41a 
2420 
23 
24140 
24150 
24150 
wid 
2490 
Hid 
e200 


mi dQ 


2240 
226) 


ne? 


PJ PO 


S 
Y 


ho PO Po 


' 


ae N, 


0 

0 
S00 
2320 
eee o 
25350 
m34G 
250 
2AGG 
2370 
25090 
2390 
240g 
“4410 
2 42Q 


GOTO 4200 

BEEP @ DISP IARC?) ;’Field goal fail 
ed.’ 

D,5=0 

GOSUEB 1050 

IF YOR’ THEN 820 
R=TPCFNF C4) ®Y) 

GOTO 24150 

TF RND>.2 THEN 2020 

DISP TAKC7);’Extra point 
P Dox Qj 
GOTO 
DISP 
} é 
GOTO 
Y=2O0+TP CS0KFNF C4) 
DISP Y;’yard punt. ’ 
X=X+QKY 

R=IP C35XFNF C4) 
GOTO 24150 

Y=30+TP (2OKFNE C42) 
DISP Y;’yard kick. ’ 
X= K+O KY 

R=TPCLOXFNF C49) 
GOTO 36040 
IF @¢0 THIEN 
GOSUR 1050 


failed.‘ 


4349 


TAKRC6);’Extra point is good 1! 


41970 


eh Q 


IF Fi?20 THEN 2210 

DY=3 

GOTO 2300 

TF (D=2 OR D=3) AND 40-S>5 THEN D9= 
4 ELSE D9AL+TP C2kRND) 


GOTO 23500 


ON ERROR GOTO 2270 


INPUT ‘Enter defense (1-4):7% ,CHRE(Y 
5)2;D9 


TF D¥>4 OR DPC1 THEN 2270 

OFF ERROR 

IF G=-1 THEN DISP R;°: 
"Heer. <3 


DISP EA2h(DeX1 3-12 , D9KIS] 


‘ELSE DISP 


CF P#O THEN 2340 
Tr G=-t THEN 1300 
TF P>@ THEN 2470 


TF P>4 THEN 2370 
ON PF GOTO 2470 ,2380,2400,2400 
ON P-4 GOTO 24300,2426, 2420 ,2440 


FO PLL THEN 2470 
GOTO 2450 
IF P4ite THEN 2470 
GOTO 2450 
IF PitS THEN 2470 


“Punts 


“Kickoff fs 


~Choose defense for 7S. Tf 
om 3d w/3S to go PREVENT 


“Player is defense 


c 





arid 
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2430 GOTO 2450 
2440 IF Pit? THEN 2470 

2450 U=4. 

2450 GOTO 248 

2470 U=4.25 

2480 IF D9ai THEN 25140 

2485 IF D9#4 THEN 25140 

2490 IF P>S THEN 2630 

2500 ON FP GOTO 2650,2630,2610,2630,2650 
2540 IF D9#2 THEN 2540 

2520 IF P>S THEN 2630 

25%0 ON F GOTO 2430 ,2630,2610,2630,2650 
2440 IF D9Y#3Z THEN 2580 

2450 IF P>S THEN 2570 

2460 ON F GOTO 2650, 2650, 2630, 2630, 2650 
2570 IF P#9 THEN 2630 

2480 IF #P<43 THEN 2600 

2590 GOTO 2650 

2600 IF P#8 THEN 2430 

2640 M4. 25 

2620 GOTO 2660 

2630 M=4 

2640 GOTO 2460 


p75 M=.8 
2660 Y=IP CCGKRND-LARND)¥ CUKMD -Dertermine yardage 
2670 IF R20 THEN 4430 
2660 IF RNDC.98 THEN 2720 
2690 GOSUB 41050 
2/700 YsrFi¢td 
274i GOTO 3630 
2720 IF F>8 THEN 2900 
2730 IF RAD .93 THEN 36070 ~Determine chances of fumble 
for running plays 
2740 Y=HIP¢ .SEFNFCLDKY) 
2/50 DISP ‘Fumble after’; 
2760 IF Y<0 THEN 2790 
2770 DISP Y;’yard gain. ’ 
2/30 GOTO 23830 
2790 IF Y#0 THEN 2820 
2600 DISK ’ no gain. ’ 
28340 GOTO 2830 
2620 DISP ABRSCY);’yard loss. ’ 


P30 TF 4-IPC2XRNDI=0 THEN 25650 -~Determine autcome of fumble 
2540 DISP ” Fumble recovered |” 

2850 GOTO 3070 

“S360 DISP ° Fumble lost !’ 


28370 X=X+QxY 
2880 Q=-0 


2eeseod GOTO 4280 
2900 IF RND< .07 THEN 3010 
2740 IF YO THEN 2940 
2720 DISP ’QE tackled for’; 
2730 COTO 3630 
2740 IF ABSCRND~.5)¢.23 THEN 3630 


2750 
2769 
297 () 
“730 
29790 
3000 
3040 
4020 
3030 
3040 
3050 
5050 
3070 
3080 
5070 
5100 
Oda) 
$4120 
3130 
34140 
5150 
S160 
3170 
3460 
3170 
3200 
Seid 
be iO) 
32350) 


3240 

$250 
3260 
327 0 
3280 
SaFQ 
3300 


33510 
33:20 
4430 
3540 
3450 
3560 
3370 
$480 
S470 
S409 
3440 


3420 
3430 
3440 
S450 
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TF LP¢RNDRe)= 0 THEN 29780 


DISP 
GOTO 
DISP 
Y=0 

GOTO 
DISP 


Katted down. 
2990 
: Incomplete. ’ 


307 0 
: * XK KX INTERCEPTION K XK xX’ 


X=K+ KY 
R= OTP CA5KFNF CL) ) 


P=1.8 


D,$,Gi=0 


GOTO 
IF 
PS=4 
GOTO 
TF 

then F 
IF 


GOTO 
P8=S 
GOTO 
We 4. 

GOTG 
DISP 
GOTO 
DISP 
DISF 
TF 


LP C2kRND)=0 THEN 
PBA=45 


Wei THEN DISP Ro ; ee 


3650 
ARS CRND—. 


5)>.04 THEN 3630 


5750 
TP C2*XRND)=0 THEN 3170 


S150 


354190 


S240 


opel 


HOLDING ’ -Panalties 
ve S220 

’ OFF EIDE ¢ 

‘Panalty on %; 

a 


ELSE Dis 


“Passing errors 





HP =75.* 
Ir WKO THEN 3400 
IF O40 THEN 3350 
IF P8=45 THEN 32 
TF ¥<0 THEN 3370 
GOSUE %4'70 
Y=P Ox 

DISP “Penalty 


3 0 


accepted: ’;P0;’yards 
D=D-4 

X=K+Qxy 

BC44-W)=BC44-W04+P 6 

GOTO 4240 

TF StY ABS CLOGS 
GOTO 4280 

PS=(} 

GOTO 3630 

TF WOG THEN 3250 

QN ERROR GOTO 3410 

INPUT ‘Accept the penalty CY/N)’ 
REC 9S) , QS 

Gk=VWPRCSCOEE 4, 249 

TF @H=°N’% THEN 3370 

TF @Q64#7Y’% THEN 3440 

OFF ERROR 


» THEN 3370 


CH 
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% 


3450 
3470 
5480 
345'0 
35 0 0 
So 
S520 
Ooo0 
S540 
S550 
3560 
5570 
Soak 
5590 
‘S500 
SE40 
She 0 
36 39 
SO40 
565.0) 
3560 
3670 
SETI 
SEF (] 
57 U0 
oF40 
S70 
Sf aU 
5740) 
or ou 
ra 
Sf 
oe el 
Sag 
Sea Ol 
oot 
Sener 
SE 4 OU 
Sa 
Sag 


ero 
4600 
BES 
4900 
ee ow 
Spo 
S94 


Jb 40 


oo 
SIH 
Core 
Ay 


GOTO 3250 

IF @>0 THEN 3570 

IF WOO THIEN 4530 
GOSUK 41070 

IF 2kPEOCF2 THEN 3620 
PB=TPCF2/2) 

GOTO 3620 

GOSUER 1050 

Tk @XPOCFL THEN 3620 
PS=IPCF 4/2 

GOTO 4620 © 

Ik WOd THEN 36400 
Ul 4. 

GOTO 3530 

W=-4 

GOTO 3476 

RE TURN 

IF POL4 THEN 3720 
K=X+ OK Y 

GOSUBR 4556 

Ik GOO THEN 4700 
TF K¢4 THEN 397.40 
Le ASS. THEN: 350 
COT: 72 

Ak Kee VAR 39 So 
Tt AS2. THEN. 6940 
IF PAS THEN 4340 
TR R=0 THEN S790 
GOTG 930 

Tk ¥C=0 THEN 3796 
DISSE Y;,%yard qain. 
GOTO Saag 

IF Y#O0 THEN 36270 
Dior  " NO Gait 
GOTO 6830 

DISP ARSC); ’yard loas. ’ 

FO PGHO THEN 2409 

GOTO 4240 

DISP “Safety vs 7, “Safety 
BE? Ae EEN Do: ae eo ORL Ge -* 

Hie &... © 

PG=2 

(JC 

Sess ff 

GOSUE 4590 

(J=~Q 

GOTO 4246 

DiSk « Touchdown 7% , 

LP Wet TREN DISP Rae; 1 ELSE DaSPr ” 

ee oe Ge. 

P9=S 

COSUB 4590 

Lr Ged THEN 4080 

Li Soe ieeS. TEN Tee 


é 


13 


3790 
4000 
4010 
4029 
4030 
4040 
4050 
4060 


4070 
4080 
4090 
4400 
4410 
4120 
44130 
4440 
4150 
44160 
4476 
4180 
4190 
42090 
AP4AD 


4220 


4230 
4240 
4250 
47260 
4270 
47280 
4290 
4400 
ASLO 
4420 
4530 
4540 
4450 
4460 
4379 
4380 
4490 
4400 
4410 


4420 
4431) 
4449 
4450 
4460 
4470 
4450 
A4AZD 


IF S2@te=$i THEN 4010 

GOTO 41980 

P=4 

GOTO 44100 

DISSE ~ Kicking extra point.’ 
GOTO 1980 

ON ERROR GOTO 4060 

INPUT ‘Enter play ¢4-44):7 ,CHR$(95) 
;P 

; 

IF P>44 GR P<i THEN 4060 

OFF ERROR 

IF P>42 THEN 422 

R2=4 

D9Y=2 

GOTO 2340 

R2=0 

IF Y¥<4.4 THEN 4220 

P9=2 

DISP “* Extra point is good !!°% 
GOSUB 4590 

GOTO 4340 

P9=4 

GCGOSUB 4590 

GOTO 4340 

DISP ’ Extra point attempt failed. 


GOTO 4340 

5=5+yY 

IF S09 THEN 4280 
IF 044 THEN 4310 

W=--Q 

D,$,G1=0 

IF P14 THEN 4310 

BRC +Q)=28 0540) +4 
IF P=48 THEN 780 
GOSUR 980 

GOTO 1030 

DISP RS; °% 273515 ° 

D,5,Z2,P4,Gi,P,P9=0 
IF SS#0 THEN 43490 

Q=—Q 

GOTO 670 
A=50-30%O 

DISP “Kickoff from’ ,; 

IF @=4 THEN DISP R#;’ 20 yard’ ELSE 
DISP “HP-75 20 yard’ 

So=0 

GOTO 740 

T=T+4 

IF THH9-S THEN 4540 

IF VeEe-S THEN 4540 

IF TOH9 THEN 4490 

GOTO 4580 

IF V470 THEN 4560 


HP-75:'5;$2 


~Scoreboard 


—SSTTTCUT PROGRAM LISTINGL____ 


¢ 








va 


_~oo PROGRAM LISTING. 





? 








4500 
4™>10 
4520 
4530 
4°40 


4550 
4560 
4570 
4530 
4S9Q 
4&00 
4&40 
4i20 
650) 
4&4) 
4650 
4&60 
467 0 
4639 
4690 
A7 OU 
47410 
47 20 
47 40 
4740 
4750 


4760 
4779 
4780 
47° 0 
4300 
4G 40 
4520 
430 


4340 
4850 
4560 
4370 


4880 
4390 
AYO O 
AYL0 
AG AY 
AY 5D 
4740 
FO0 
AYO) 
4970 
4AY30 
AGS 


IF KND(.35 THEN 4580 
GOSUB 4700 

Q=TS 

GOTO 4340 

BEEP @ DISP ’> > > TWO-MINUTE WARNI 
NG. <<. 

GOTO 4586 

IF 1(E? THEN 4580 

IF KND>.S THEN 4720 

RETURN 

B24) =R(2+0)4P9 

IF G0 THEN 4630 

SP G2+P9 

GOTO 4640 

Si=S4+P9 

RETURN 

IF P>8 THEN 4680 

E(B4+Q)=h(B+Q)+Y 

GOTO 4690 

BLA PG EEC ALEQ+Y 


RETURN 

DISP ’ KX KX KX HALFTIME xX x x’ 
GOTO 4740 

DISP ’ Kk *X KX END OF GAME & & x’ 
L9=4 


ON ERROR GOTO 4750 

INPUT “View statistics?’; Gh @ GQé=U 
PRCO#COEE A, 47) 

GFF ERRGR 

TF Q$2°Y% THEN 48006 

IF G4 7°N’ THEN 4750 

GOTO 4890 

DISP “STATISTICS FOR /;R4 

IMAGE 448,3X%,4D 

FOR T=0 TO 4 

DISP USING 4840 ; FRicl+4)*k441-40, (1 
+h) K4417,0034+7T%3) 

NEXT 7 

DISP “STATISTICS FOR HP-75S° 

FOR I= TO 4 

DISF USING 4840 3; FS@lrel+49k44-40, 07 
+4 KV 41, 804410 %3) 

NEXT J 

Z,T4i=4 

T=H9 

RETURN 

ON ERRGR GOTO 4930 

INPUT ‘Another game?’ ,’Y¥’ ;Q4% 
Q&=UPRCECOST 4,41) 

GFF ERROR 

TF G@S=’N’% THEN 5040 

Tk GSé’Y’ THEN 4920 
Z£7;D0,1551;52,;P1,P58,61,71,226 

FOR T=4 10 45 @© BC])=0 @ NEXT J 


“Statigetics review for halftime 


and 


enc 


of game 


CST CUI PROGRAM LISTINGL___ 


© 000 
S010 
5020 
5040 
5040 
5050 
5060 
S07 


506 0 


SOF 0 
5400 


5110 


5120 


5436 
S140 
S456 
S466 
S479 
D400 


SL? 0 


GOTO 540 

STOP 

DISP ’Call plays as follows ...’% 

DISP “ * KX X RUNS K * XK’ 

DISP ’4 = DIVE’ © DISP ’2 = OFF TAC 

KLE ” 

DISF ‘3 = SCISSORS’ @ DISP ’°4 = TRA 
P é 

DISK ’°5S = SWEEP’ @® DISP ’& = OPTION 
DISP ’7 = REVERSE’ @ DISP ’8S = DRAW 
DISP ¢ * xX KX PASSES K kK x’ 

DISP ’9Y = SIDELINE’ @ DISP ‘40 = LO 
OK - TN’ 

DISP ’44 = ROLLOUT’ @ DISP “412 = SC 

REEWN ? 

DISP "43 = ’FLY’" @ DISP "44 = “POS 
T ? tt 

DISP 7” K KX KX KICKS KM XX’ 

DISP ’45 = FIELD GOAL’ @ DISP ’46 = 
PUNT / 

DISP “47 = QUICK KICK’ 

DISP ‘Call defenses as follows . 

DISP "4 = ’PR’ (4-3)" @ DISP "2 = ° 
OKTe’ ¢S5-2)" 

DISP "3 = ‘SHORT YARDAGE’" © DISP ° 
4A = (PRIEVENT? " 


RETURN 


¢ 


“Key to plays 











—— PROGRAM DESCRIPTION(L____ 


GOLF 


This game is a simulation of an 18-hole golf course. The player is supplied 
with 12 clubs (a driver, 2 woods, 8 irons, and putter) to tackle the course. 
In addition, he may choose to use a partial swing (i.e. a percent of his full 
swing) on any of the irons (see club list below). 


Distances for each hole range from 180 yards to 560 yards, with pars of 
3, 4 or 5 strokes. Par for the course is 72. Hazards include trees, sand- 
traps and water. 


To begin the game the player must enter his handicap (0-30) and indicate 
his worst difficulty at golf: hook, slice, poor distance, trapshot, or putt. 
Then the distance to the hole, the par for that hole, and the conditions of 
the right and left sides of the fairway are displayed. The player then 
proceeds as on a golf course, selecting appropriate clubs for particular 
shots. If he hits a ball into the water or out of bounds he must hit again 
from the previous location and a penalty stroke is assessed. If the player 
selects a partial swing club, he must enter the percent of a full swing 
that he desires (1-99%). 


When the player reaches the green, he must enter a putt potency number (>0). 
For example, a distance of 3 feet to the pin (hole) suggests a putt potency 
number of around 1. 


CLUBS: WOODS IRONS (FULL) IRONS (PARTIAL) 
1) Driver 12) 2 Iron 16) 6 Iron 22) 2 Iron 26) 6 Iron 
2) 2 Wood 13) 3 Iron 17 


) ) 
) )} 7 Iron 23) 3 Iron 27) 7 Iron 
3) 3 Wood 14) 4 Iron 18) 8 Iron 24) 4 Iron 28) 8 Iron 
15) 5 Iron 19) 9 Iron 25) 5 Iron 29) 9 Iron 
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_ —wdsIUSERINSTRUCTIONS|L__ 


~* 


TEP DISPLAY INPUT 
| wetcone to Tie GOLF course 
0-30 [RTH 
| ________ hook Stice Dist. Trap or Putt? | or’ CAT 


Ww 


wy 


S| stance 361 yards PAR 
| on right is adiacent fatrnay 
fn tet is roush 


Por 
COP 
1} 
AIO 
— |. 

=O 
Ls 


enter club: woods 1-3, | hat club do you want? 22" 
irons ess, | 
Percent of full swing (1-99)? 1-99 [RIN] 
iif batt tended on green fo 
fthenstepg 


Sa 


bisplay ftight and distance | 
P| shot nent 228 yards oe 
P| 8 yards from the note 
et eee ee ue 
aes 


Ball is 11 yards off line ... 
... in adjacent fairway 
goto step 4 ec ees 


Ball on green On green # feet from pin 


al te batt went in ote then fo 






Putt potency number? p LRTN] 


~ 















” 








Cd JUSERINSTRUCTIONS( 


—“, _..... 1... 
a a 


cw 


total strokes so far; | 

An Eagle! Excellent!!! 

Ne uintiniaia gobi Nao ee 

eee 
ee 
Pres 


tions. If hole 18 has been 
played, then goto step 10. 
Display total score: Total score for 18 holes was #3 
if <PAR: ## under par!!! 
cma 
Option to play again: Would you like to play again?Y N [RIN] 


te 
© 


— 


— ~=JVARIABLE NAMESL__, 












DESCRIPTION | NAME DESCRIPTION 
Location of ball Difficulty at golf 
Terrain on rignt side 
LZ of fairway io Total par for course 
ua aes 
L of subroutine 


Terrain on left side 
of fairwa 
Percent of full 


Aid in determining 
dubbed shot 
Index for terrain 
subroutine 


Determines penalty stroke 
Counts putts 


Random number used to Tind 
probability of getting 
out of trap 


B( ) Temp. storage for D 
T 


swing on irons 


L(3 

Score on a particular [| 
Sl hole 

Accumulated score 
Nunber of hole 
i oe | Distance from tee to hole 
| ig | Par for a hole N 
pt) 
ps 
















aes 





Putt strength 
Golf difficulty 


User interaction 


I 
$ 
Q$ 





[ _INOTES AND REFERENCESlL____ 


Notes: 1. To omit club list from program change: 


580 if C>=1 and C<29 then 600 
630! 
Delete 2220-2490 





Reference: 1. "GOLF", HP-85, Hewlett-Packard. 


— PROGRAM LISTINGL 





10 ! GOLF 

20 | 

40 ! Revision 14/01/82 

40 INTEGER 1.6449,7,K,@,X,B,H,Z,51,52,F 
ps Dey Di ey 1545 

SO REAL N,O,W,T 

60 DIM Tél4],Q614) 

70 RANDOMIZE 

80 DELAY 2.5 

90 DISF “% WELCOME TO THE GOLF COURSE. 


100 X=3 @ N=. @ Fei 

440 51,52,TS=0 

420 GN ERRGR GOTO 4130 

430 INPUT “What is your handicap?’ ;H 

440 IF HX30 OR HCO THEN 130 “PGA rules - handicap 0-30 
150 GON ERROR GOTO 4170 

4690 Dror: ‘Choose your worst difficulty. 


47 0 DIS P CHR S Ce 00) 5 “ook jCHRS Ce 417% ae 
ce Se ee “2ST. SCHR (BLE) 5 / 
ap or “’;CHR&¢ 208); 

480 INPUT rete’, CHRS (95) 5TH 

470 TS=UPRCS(TSE4,41) 

“00 ON POSC’HSDTP’ ,TH#)4+4 COTO 470,219,2 
20,230,240, 250 

eit t=4 @ GOTO 260 

220 T=2 @ GOTO 260 

240 T=3 @ GOTO 266 





240 T=4 @ GOTO 260 
eo T=5 

260 OFF ERROR 

a/Q ! 


280 J,8,K,bL¢1)=0 
290 Sox Heats 
300 IF F=4 THEN 460 
S40 DISK ‘Score on hole’ ;F-4;’was’ ,51;7 
ABC29);,Se2 
S45 GN ERROR GOTO 330 
S20 ON P-844+4 GOTO 4509, 450,450,470 ,3970 -~Determines comparative skill 
on hole 
340 DISP “Keep your head down. - 
340 GOTO 450 
350 DISP “A Par. Nice going!’ 
360 GOTO 450 
$70 DISF ’A Birdie. Very good I!’ 
380 GOTO 450 
S90 IF P=3 THEN 420 
400 DISPF ‘An kagle! kExcellentil!’ 
440 GOTO 450 
420 DISr ° xX kK KX A HOLE IN ONE K Kk x’ 
430 KEEP @ KEEP @ KEEP @ BEEP 
4550 OFF ERROR 
455 TIF F=iS THEN 1970 -~Check for end of qame 
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_TTCCTCTCUdI PROGRAM LISTINGLO 


460 
470 
480 
490 
500 
940 
920 
530 


540 
550 
560 
70 
980 


590 
660 
64.6 
620 
540 
640 
550 
650 
6570 
480 
696 
706 
7 AQ 
720 
7 40 
740 
750 
750 


770 
780 
FIN 


800 
840 
3.2 0 
30 
840 
8% 0 
3h O 
G7 0 
0 
os? Q 


900 
P10 
2g 
730 
FAQ 


Si=0 

IF Si=0 THEN 1800 

IF £.€19¢4 THEN 4330 

X= 4. 

TF £04995 THEN 41370 

DISP “Shot went’;Di;’yards...’” 

DISP D2;’yards from the hole. ’ 

DISP ‘Ball is’ ;,;IP(OG);’yards of f Lin 

e...! 

Z=4 

GOSUR 2060 

ON ERROR GOTO 570 

INPUT ‘What club do you want?’ ;C 

TF C¢i OR C29 THEN COSUBR 2220 ELSE 
&00 

GOTO S60 

OFF ERROR 

TF C>3 THEN 656 

IF L¢40<5 OR C=44 OR C=23 THEN 689 

GOSUB 2220 

GOTO 560 

IF Céi2 THEN 630 

C=C & 

GOTO 620 

SL=Si+h 

W=1 

TF (343 THEN 4010 

IF F/S=2IP CF 73) THEN 970 

IF (<4 THEN 7406 

GOTG 750 

IF Ltfos2 THEN 330 

Ik Sit? THEN 860 

DLSTR CC SO-HIKe Sti BCC SUH. 25415 
XC /2+25KRND D 

DPA=IPCDAKW) 

Tr Y=2 THEN 4350 

GRND/ 8k CAKH+416) XABSITANCDIX. 0035) 
) 

DE=TP CSQR CO*2+ARS(D-DL)*2)) 

IF D-D4ii¢0 THEN 880 

GOTO 700 

DISP ‘You dubbed it. ’ 

DL=3%5 

GOTO 790 

TF D¢CelO THEN 14860 

GOTO 760 

Tk Daedced THEN 900 

DISF “Too much club...passed the ho 
Le.’ 

B=D 

HD= De 

TF D2@>27 THEN 414590 

IF D2>20 THEN 1280 

TF D2>.5 THEN 13600 


~Determine penalty shot 


~Check 


for 


legal club selection 





, 











» 


TS rrrrtCLCUdJN PROGRAM LISTINGL_ 


750 
S60 
77 0 


980 
¥ FQ 
1000 
1040 
L020 


1036 
4.040 
4050 
L068 
10760 
10380 
1090 
4400 
LAAG 


£426 
436 
4.440 
4450 
£460 
44°70 


1480 
1490 
420 0 
42240 
1220 


L230 
47240 
L2G 
4.260 
1270 
L280 
4296 
1.400 
43410 
4.420 
4.336 
4.440 
£456 
4.460 
L470 
14330 


4390 
4400 


1446 


L¢io=9 

GOTO 1490 

IF €7e@+CH+th)/ SSI/1ASBCS2+Ot+L OKC F-41497 
18 THEN 720 

Q=OQ-+ 4. 

IF S4/2RTPCS4/72) THEN 4400 

GOTO 636 

ON ERROR COTO 1029 

INPUT “Percent of full swing ¢4-99) 
:* 3s W 

WeW/ 4100 

TF WC=0 OR Weed THEN 1020 

OFF ERROR 

TF 14925 THEN 414706 

IF (=414 THEN 7550 

C=C-40 

GOTO 750 

TF D<¢9S THEN 830 

DISF “Hall hit tree... went inte rou 
qh’ 

DISP D-75;,’yardsa from hole. ’ 

De De 7S 

GOTO S7Q 

TF 03730 OR JO THEN 4336 

TF 130 THEN 42206 

TF (Se2@+4d)/74520P (05 2+49/45) THEN 423 
Gg 

DISP ‘You hooked ”,; 

Med eee) 

TF (04% THEN 4260 ELSE DISP 

GOTG 470. 

TF (S2+4)/45=70P 0052449745) THEN 41416 
0 

DISP ‘You sliced %; 

Led =Htce) 

GOTO 1206 

DISP “badly. ’ 

GOTO 470 

L425 

GOTO 470 

L¢40= 

D2=TP CD23) 

GOTO 41560 

LC 4 2254 

GOTO 4790 

D4isIPC S5XD4) 

GOTO 790 

TF L64)996 THEN 1450 

DISP “Your shot went into the water 


SiHGi+4 

DISP “Penalty stroke assessed.’ @ D 
ISP “Hit from previous Location. ’ 
J=T+4 


23 


—TTTTCUI PROGRAM LISTINGL_ 


1420 
1430 
1440 
1450 


1460 
1470 
4.480 
1490 
4500 
£540 
4520 
4530 
4.540 
4550 
1560 
15790 
4.530 
45990 
1600 
£610 
160 
1630 
1649 
4.650 
1650 
1470 
1.6580 
L&90 
4706 
4.740 
4.729 
4730 
4740 
4.75) 
4.759 
4.7770 
4730 
1790 
400 


193410 
1.820 
48350 
4640 
Lod 0 
1860 
1870 
1390 
4.90 
4.706 
£910 
{920 
4.50 


c 


L(4>=4 

D=K 

GOTO 560 

DISP “Your shot went out of bounds. 


GOTO 1370 


D2=44+ 5K TP (80/¢040-H) XRND) 

GOTO 1560 

IF RNDON THEN 1540 

N=NX. 2 

DISP ‘Shot dubbed...still in trap. “ 

GOTO 560 

N=. 

GOTO 1480 

DISP ‘On green’ ;D2;’feet from pin. ’ 

ON ERROR GOTO 1580 

INPUT ‘Putt potency number?’ ;1 

GFF ERROR 

IF I¢=0 THEN 1570 

Si=51i+1 

IF S4+i-POHK. O7e2+2 THEN 16979 

IF K?2 THEN 41690 

K=K-+ 4 

TF T=4 THEN 4750 

D2=D2-1KC4+2xKXRNDI+4.5 

IF De<-2 THEN 41770 

IF D2>2 THEN 1720 

DISP “You holed atlil’ 

F=F +4 

GOTO #230 

DISP “Putt short. ’ 

De=TP (D2) 

GOTO 1569 

D2=De2-TKC4+RND) +4 

GOTQ 41670 

DISP ‘Passed by cup. ’ 

De=—-De2 

GOTO 41730 

READ D,P,L 2) ,1.03) -~Read in distance for hole, the 
par and fairway condition 





LF F-£948 THEN 1970 

TS=TS+P 

DISP “You are on tee of hole’ 5k 
DISF “Distance’ ,D;% yards PAR’ 5P 
DISP “On ridaht is 7%; 

LQ 

A=2 

GOSUR 2060 

DISF “Gn left is %; 





X= 4 
GOSUBR 2060 
DISP 


GOTO S40 


» 
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—TLCUdJ PROGRAM LISTINGL_____ 


1740 


1950 


1960 


477 0 


1980 
i790 
“G00 
“040 
2020 
20740 
204 
2USG 

2060 


“U7 0 


fH 080 
2090 
Pa 
e110 
eA v 
e450 
2440 
2450 
24160 
cig th 
LAG 
L490 
0G 


ee 
me aU 


2240 
2250 


=ce 


org 
eo 2280 


39 
it. 7 


2500 
234.0 
2320 
2430 
2440 
2350 


COU 


DATA S64 “Data for 


? 
500,5,7,2 


ind 
oe 
a 
> 
Po 


DATA a5 7,4 


> ? my ? > o. 
DATA 424,4,4,2,388,4,4,4,176,3,7,2, 
AQU VAL? . 24356059 peste Ope ee 
»4,29 7 
375 ,4, A. 480 3; 642.550,,556,6 
DISF “Total score for’;F-1;’holes w 


as’ ;,S2 
LF S2@-TS THEN 
DISP “Par qame ! 
GOTO 2500 
TF TSG THEN 2040 


2010 


/ 


Ce 


DISP ~€52-T5);’under par! tl’ 
GOTO 25096 
DISP Se@-15;’over par. 


GOTO 2500 
TF Z=4 AND LOXO#? THEN DISP “ 
wn 75 11 
ON L¢X) GOTO 2400,24120,2140,2160,2 
eee 
Dior 20 OF 
RETURN 
DISP “fairway.” 
RE TURN 
DLGr ~ 
RETURN 
DISP “trees. 
RE TURIN 
DISP “adjacent fairway.’ 
RE TURN 
DISP “trap. ’ 
RE TURE 
DISP “water. 
RETURN 
ON ERROR 


~Check for 


hounds. 


rough. ’ 


/ 


é¢ 


GOTO 2&2sg 
CHOLES 

TNPUT “Need a list of clubs??,7¥%;,G 

d; 

GQ&=UPRCSCQ$D 1,442 


TP GSES Y? THEN 2490 


DISR / WOODS KXKA Fuld swing only’ 
Dior ~ 4). DRETVER ’ 

Dele *? a2. a WOU’ 

Disk 3) 3% WOOD’ 

Daler <7 TRONS &*kKX Fuld swing only’ 
Dolo <* te e TRON’ 


TRON ¢ 
LR ON 7 


Loo > 
14) 4 


Digi -* 
Dia 


Dis * Lod: Se RUN 
Pais > 14) © JRON’ 
Dior * 17) Y TRON’ 


10) 3 TRON’ 
47) TRON?’ 
TRONS EX Partial. 


om 


ia = 
Dish 
Dia « 


swing only 


~Subrautarme 


COUr Se 


use of preposition 


subroutine 


to daiepilay club 
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2400 
2410 
24e2w 
2430 
244 
2450 
246 () 
247) 
2460 
24? () 
2500 


2510 


2520 
240 
2540 
2550 
2560 
2570 
2580 


DISP “ 22) 2 iron’ 
DISP ’ 2s) 38 iron’ 
DISP ’ 24) 4 iron’ 
DISP ’ 25) %S iron’ 
DISP ’ 26) & iron’ 
DISP ’ 27) 7 iron’ 
DISP ° 28) 8 tron’ 
DISP ° 2?) YF iron’ 
OFF ERROR 

RETURN 


ON ERROR GOTO 2510 

INPUT ‘Would you like to play again 
2° ,°Y¥" QS 

Q$=UPRCSCQ$L 4,41) 

IF Q$=’Y"% THEN 100 

IF G@$#°N’ THEN 2510 

OFF ERROR 

DELAY 4 

DISP TAK(9);’END OF GAME’ @ DISP 
STOP 


Cg 
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HAMURABI 


This game allows a player to control a country's economy through the buying 
and selling of land. The more efficiently he uses the land, the better a 


governor he is. 


The game begins with a report of the economy and population. The player 
then has the opportunity to buy and sell land, allocate food, and plant a 
number of acres for harvest. The player must deal with plagues, starvation, 
rats, and the rise and fall of the land market. 


If the player rules unsuccessfully, he will be warned and asked if he 
wishes to continue. He may resign at any time by selling all his land. 


The object of this game is to determine how it works and find the best 
set of circumstances for a growing economy. 


- JIUSERINSTRUCTIONS|____ 


INSTRUCTIONS INPUT 
er 


1:10. If there was one: The plague killed 4 the people 


x ity: 

A plague has a probability of Ce 
Population 
Total food 
Land will sell at... 
Decisions must be made 


H 
ex [RT 
it insufficient busters to | 


buy land then display stats 


~ 
IO pont 4 —— te — — —" —_ 
nh @ O. ©) oO ,@ 8) m 


c AI 
su Sy 
= ct 
. — 


Sell how many acres? xx [RIN] 


if insufficient acres to sel) | 
then display stats re 


If all land sold goto step 5 


If insufficient bushels in 


How many bushels for food? xx [RIN] 


store then display stats 


How many acres to plant? xx | RTN 


~~ 








ge 


® _ Ed JUSERINSTRUCTIONS|_ 


INSTRUCTIONS DISPLAY INPUT 
if insufficient acres to plant} 





then display statistics 
If many people died then: Things aren't looking too well! 


STATS = Review economic status | Think again ou only have: 


re Xxx people ... ae 





” 
w m 
Bl 


ee xxx_bushels in storehouses 
Option to continue govenine You have ruled for x years 
under current conditions: Do you want to continue? N | RIN 
[sates WB” 
Options to begin again: Start over? N [RIN 
If ‘N' then end END OF GAME ae 









-_}VARIABLE NAMES c 







ae [sn [nae [—oescnProw 
wd 








NOTES AND REFERENCES." 


Reference: "HAMURABI", HP-2000 Basic, Hewlett-Packard 
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v 


10 
2g 
30 
4() 
% 0 
60 
7 0 
30 
90 
4.00 
440 
122 


140 








! HAMURART 
! Revision 44/04/82 


INTEGER A4,02,03,B4,B2,83,84,C04,1,2 
DELAY S 

DISP TARCA2) ; “HAMURABI ’ 

Ai=100 @ AZ=5 @ AB=0 

Ri=2800 @ B2=200 @ B3=3 @ B4=3000 
C4i=1000 @ J=4 @ Z=6 

1 REPORT TO HAMURARI. 

IF Z=4 THEN 440 


TF ASCAL+A3)%.45 THEN DISP "Things 


aren’t looking too well!" @ GOSUEB 
14040 

REEP 600,.45 @ KEEP 400,.4 @ BEEP 6 
O00,.45 

L=Z+h 


IF 2/5"7TP(Z/5) THEN GOSUE 41640 

DISP ’I beg to report that last yea 
re 

DISP A3;’peocple starved and 
DISP A@;’people came to the city.’ 
IF 390 THEN 230 


/; 


AL=AL-IPCAL/Z2) 


DISP “The plaque killed 41/2 the peo 
ple’ 

DISP “Population now’ ;AL;7. ’ 

DISP ‘We harvested’ ;84;’bushels...’ 
DISP ’at’;B3;’bushels per acre. ’ 
DISP ‘Rats destroyed’ ,He;’bushels. ’ 
DISP E4;’bushels in storehouses. ’” 


DISP ‘The city owns’ ;,Ci;’acres...’ 
C2=47+7P CO¥RND ) 

DISP ‘worth’ ,C2;’bushels/acre. ’ 
REEP 600 

DISP ‘’Hamurabi : 


P oBUY LAND? 

ON ERROR GOTO 350 
INPUT “Buy how many acres?’ ,CHRS (9S 
I3f 

T=ITP CARS CT) ) 

OFF ERROR 

IF T=0 THEN 4590 
J=IxKC2 

TIF J¢=84 THEN 430 
GOSUER 940 

GOTO 3406 

Ki=Hi-J 

CiaClitl 

' SELL LAND? 


“Set up initial conditions 


~If more than 45% of the people 
died, option to restart 


“If 5 years have passed give 
option to quit or continue 


“Plagues have a probability of 
1 in 40 


“Status report 


“Acreage ranges in value from 
17 to 22 bushels per acre 


“Option to buy land 


460 ON ERROR GOTO 470 
470 INPUT ‘Sell how many acres?’ ,CHRS (9 
5);1 
480 J=IPCARS(CT)) 
490 OFF ERROR 
S00 IF T=0 THEN 5706 
S40 IF 1¢Ci THEN 550 
S20 IF 12=Ci THEN 41090 -~Check to see if selling all 
Land - option to restart 
S30 GOSUBR 940 
540 GOTO 460 
S50 C4=C1i-1 
S60 BAH=BA+C 2X) 
S70 !§ HUY FOOD? -~Food allocation 
SEO ON ERROR GOTO 590 
S90 INPUT ‘How many bushels for food?’, 
CHR#I9S) I 
600 T=IPCARS(CT)) 
640 OFF ERROR 
620 IF 1I¢=B4 THEN 6590 
630 GOSUER 940 
640 GOTO 586 
650 Bi=ki-T 
660 AS=AL-IPCI/20) 
&70 Aa=9 
680 IF A3>=0 THEN 710 
G90 Agz=-AS/E 
700 AS=0 
7i0 | PLANT ACRES? 
720 ON ERRGR GOTO 730 
23) INFUT ‘How many acres to plant?’ ,CH 
R$(95) 51 
740 T=IPCABRSCT)) 
70 OFF ERROR 
7&0 IF LCi THEN 799 
770 J=IPCI/e2) 
7830 IF J<=Hi THEN 810 
790 GOSUR 940 
S00 GOTO 729 ~Plaques have a probability of 
4, in 10 





S40 ITF Ti 0kAL THEN 790 

S20 Bi=Hi-J 

B30 1 HARVEST ,RATS, POPULATION. 
S40 BRS=TPCSERND) +4 

850 B4=KSxKT 

860 Bee IPC CB4+BR4)e. OF RRND) 
870 BL=Bi-Bke+R4 

BE0 J=IPCLOXRND) 

Sed A= TP (AL+ (S-B3IKEI/O00+1) 
SOQ IF A&@<=50 THEN F20 

940 Ae=50 

920 AL=AL+AL-AS 

930 GOTO 4710 

940 ! ERROR ROUTINE. 





? 


750 
Y60 


270 
980 
790 
1000 
4040 


4020 
1030 
4040 
4050 
4060 
1070 
1086 
1,050 
4400 


4446 
4120 
4430 
4440 
4450 
4460 


Ss SECU JPPROGRAM LISTING([ 


BEEP 100,.2 

DISP “Think again you only have 
DISP Ai;’people ’ 

DISF C4i;’acres and : 

DISF EL;’bushels in storehouses. ’ 


RETURN 
DISP ’You have ruled for’ ,Z;’years. 


GN ERROR GOTO 1030 
INFUT ’Do you want 
Q$=UPRC$(QEL 4,41) 
OFF ERROR 
IF Q%=’N’ 
IF Q&¢#°Y’ 
RETURN 

GON ERROR GOTO 41100 
INFUT ‘Start aver?’ ; 
Qé64i,49) 
OFF ERROR 
IF b=’ Y? 
IF GQS#/°N’ 
DELAY 4. 
DISP TAR(C10);’END OF GAME’ 
STOP 


to continue?’ , QF 


THEN POP ® GOTO 1090 
THEN 1020 


Qt @ Qh=UPRCS¢ 
THEN 6&0 


THEN 10990 


@ DISP 
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_—«JIPROGRAM DESCRIPTIONL__. 


REVERSE 





The object of the game is to order a series of numbers from lowest to highest 
by reversing the order of a subset of numbers. For example, a series of five 
numbers, such as 25314, might be ordered by the following moves: 
Start : 25314 

Reverse 2 : 52314 (reverses the two leftmost numbers) 

Reverse 5 : 41325 

Reverse 4 : 23145 

Reverse 2 : 32145 

Reverse 3 : 12345 and the numbers are in order. 
In this example, it took 5 reversals to win. For n numbers, a solution can 


always be found in n+l moves or less. The program allows the player to make 
any number of moves necessary. 


The game allows a series of 3 to 9 numbers to be used in the game. 








—— USER INSTRUCTIONS. 


Cw 


|. ae 

enon: 

ane | | 
re 


numbers. * 






r [RTN] 


Od 
a 
He 


Display n numbers in their nl n2 on 


numbers are in their correct 


* a ° 


order from smallest to 


largest. 


Display correct order nl n2n3... Mn 


Display number of reversals [| 
| 
pen 
If 'R' then step 1 else 


oe 
aa 
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ikon te wikdinte 











! REVERSE - game to reverse 

20 ! the order of a set of 

i numbers. 

40 ! Revision 14/04/84 

SO OPTION KASE 4 

&0 DELAY 4 

70 RANDOMIZE 

80 DIM RL 3] ,Q$03)] NHI 3] 

70 INTEGER AC9),N,I,T,YV,R,K,S 

400 DISP ” K XK KX REVERSE *K k xk’ @ 
WAIT 2 

1440 GN ERROR GOTO 420 

420 INPUT ‘How many numbers to reverse? 

7,°S’; NS @ N=EVALCNG) 

430 TF N$li,41=°0’ THEN S90 

140 IF Nt=2 OR NOY THEN 126 

150 OFF ERROR 

160 FOR T=4 TO N 


470 ACT =TI 

480 NEXT I 

490 FOR T=N TO 2 STEP ~—4 

“200 K=IP CLXERND+4) “Set up random index for mixing 


the order of the numbers 


» 240 TsACL) 
220 ACT)=ACK) 


250 ACKI=T 

240 NEXT I 

250 FOR I=4 TO N “Check to be sure that numbers 
are not still aun order 

260 TF ACTO€I THEN 290 

270 NEXT 1 

260 GOTO 190 

27 Yat 

300 COSUR 670 

310 QN ERROR GOTO 360 

S20 INPUT “4? ,CHR$(95); RS @ IF R&L4,4) “enter the number of digits 

=CHRE(9S) THEN S90 that you want to reverse 

350 R=VAL CRG) 

S40 IF R<=4 OR RON THEN 300 

350 OFF ERROR 

3&0) VY 4 

370 FOR T=4 TO IPCR/2) “Ad just the order of the 
Pumb eins 

43300 T=ACT) 

S70 ACTIHRACK-T+4) 

AQ ACR-T+4)=7T 


440 NEXT J 

420 FOR T=4 TO N 

440 IF ACTO#T THEN 300 ~Check to see if solution has 
% been found 

440) NEXT I 


450 DISP TARCIP CC 32-NK3)/2)) ; 
4650 FOR IT=4 TO N 
470 DISP ACT); “Display solution 
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480 
45'0 
500 
5410 
20 
530 
940 
550 
560 


570 
SoG 


590 
600 
&10 


&7 0 


630 
&40 


650 
660 
67 0 
680 
45'0 
700 
7i0 
720 


NEXT I 

FOR J=4 TO 3 

FOR I=4 TO 5S 

REEP 502.857+1k(220/77),.02 

NEXT I 

NEXT J 

WATT 4 @ DISP 

IF V-i¢=N THEN 580 

IF V-2=N THEN DISP “ You won in’; 

V-4;’moves !% ELSE DISP “ It took 
you’ ;V-4;’moves. ’ 

GOTO S970 

DISP ‘WOW! You won in’ ;V-41; %moy 

eg!’ 

WAIT 2 

ON ERROR GOTO 610 

DISP CHRE¢(210);’un again, or % ;CHRS 
(197); 

INPUT ‘’nd? %,°R’%; Q& @ QE=UPRCS$ (QSL 
4,4]) 

ON POSC(’RE’ ,QH)+4 GOTO 590,110,640 

DISP ° END OF GAME’ @ WAIT 
2 @ DISP 

OFF ERROR 

STOP 

! DISPLAY NUMBERS . 

DISP TABCIPCCS2-NKS)/2)0-1) ; 

FOR T=4 TON 

DISP ACT); 

NEXT I 

RE TURN 








? _ __Ss|PROGRAM DESCRIPTIONL 


SLOT MACHINE 


This program simulates the actions of a slot machine. The user may choose 

from five machines (coin denominations) to play. The coin denominations are 
(1) $ .05, (2) $ .10, (3) $ .25, (4) $ .50, (5) $1.00. The higher the coin, the 
higher the payoff (or loss). Each machine uses the following payoff system: 


cherry &i% Pays 8 times 

orange Sas Pays 5 times 
* Jemon moc Pays 10 times 

plum kee Pays 15 times 
i bell aaa Pays 20 times 
= bar eit Pays 50 times 


Note: 'X' represents any symbol Pays 100 times 


» except &. 'A' represents any Pays 2 times 


symbol except # and is the FFinot= Pays 3 times 


same symbol for both occurrences HAs Pays 5 times 
of 'A' ina line. 


At the end of each play, the user has the opportunity to "pull" again, 
or change machines, or stop. 
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TSS CUI USERINSTRUCTIONSL_ 


INSTRUCTIONS INPUT 

Choose slot machine (1-5): # 
Assign the corresponding 
coin value to the machine. Ce 


, winnings or losses, | X X X win .nn $n.nn 
and current cash total in hand 
X represents a symbol ) X X X lose $n.nn 
[RTN] or 


Option to pull again: Pull or Stop? P S [RIN 


1-5 [RIN] 





Oo 


— “~O i 
=e Cc (D 
@D — ad 
= —_ D 
© 
Ss  |[o ct 
© = 
— 142) ©} 
= © 
=a mad 
Qu = 
> 
oe — 
—_t sond 
m N 
MD 


7p) 
nm fe = 
“oO 


on 


If 'P' then goto step 3 


If 'S' then goto step 6 Fs 
otion to change machines: Try another machine? Y N [RIN 

f 'Y' then step 1 Rs 
If_'N' then step / eee 
jew_total winnings or losses: 
 canccocissuarinaccte aie 


= n.nn 


© 


Total winnine 


S 
END OF GAME 


m it 
3 s 
Ou 


& 











CU] VARIABLE NAMES 










DESCRIPTION | NAME DESCRIPTION 
Represents each symbol 
for a roll "<= ' decimal code 


ok 
Index and Tooping ___|_—_8__| Coin denomination 






K 
Payoff value S Total cash in hand 





| CU INOTES AND REFERENCESL____ 


Note: A players current cash total is displayed in the right most corner 
» of the display window. If he changes machines this total stays 
with him. 
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CT TTCLCUI PROGRAM LISTING —$—$=¢ 


120 
4.30 


440 
450 
460 
4.70 


160 
190 
200 
Zid 
220 
250 
24 
a Q 
20 
27 Q 
230 


29) 
30G 
340 
J2Q 
430 
340 
4350 
360 
370 


380 
370 
400 
440 
4) 
43 
4A] 


450 
461) 
470 
480 
APO 


! SLOT - SLOT MACHINE. 
! 
! 


Revision 44/704/82 


{ 

DIM Q$L4] 

INTEGER X(3),1,P,J],K 
SHORT E,S 

DELAY 2 

RANDOMIZE 

DISP 

S= 

ON ERROR GOTO 130 


SLOT MACHINE ’ 


INPUT ’Choose slot machine (4-5): 


CHRE( 9S) ; Q4 
G$é=UPRC$(Q$0L4,49) 

R=VAL (QS) 

DISP "You’ll be using the "; 
IF B=4 THEN B=.05 @ GOTO 250 


IF B=2 THEN H=.1i @ GOTO 230 

IF B=3 THEN BR=.25 @ GOTO 230 

IF k=4 THEN K=.5 @ GOTO 230 
BeS THEN e4 @ GOTO 230 


DISP USING 240 ; 
TMAGE d.dd,’ machine’ 
OFF ERROR 


DELAY 0 
K=B4 


FOR L=4 TO S 
DISP TAK(2) ;CHRS(K) ; 
DISP TARCS) ,CHRS(K) ; 
DIS TAERCS8) ;CHRECK) ; 
BEEP 444.429, 03 
BEEP 472.857, .03 
HEEP 204.286, .03 
BEEP 235.744, .03 
DISP CHRS(27&7E’ ; 


NEXT I 

J=2 

DISP 

DELAY 5 

FOR T=4 TO 3 

DISP TAR(J); @ BEEP 449.999 
XCLI=IP CEERND+ 4) 


TF X¥€T995 THEN 6590 
TF X¢€Y)>2 THEN 549 
TF X¢(T)=2 THEN 510 
DISP CHR$(18) ; 
ACT) =4 


“Establish coin size for 
machine selected 





~Decimal code far upside down 
card 


~Clear display and move to 
column 4 


~Set up tab values 


-Select a random number to 
correspond with a symbol 


¢ 


~cherry symbol 


oS PROGRAM LISTINGL_ 


506 GOTO 760 

O10 DISP ’07,; -Oranqde 

520 X(T)=2 

530 GOTO 760 

[40 IF X¢€I)>3 THEN 580 

5S0 DISP ’x’, “Lemon 

560 ACT =3 

©7090 GOTO 760 

S80 IF X¢T)=5 THEN 620 

©5970 DISP CHRE(9); “Plum 

600 xX¢1I)=4 

640 GOTO 760 

620 DISP CHRE(7); ~Reld] 

630 XCT)=5 

640 GOTO 760 

650 IF X¢(I)>? THEN 7%0 “Weighting process for a bar. 
Chance of 3 bars is 1/2560 

660 IF X¢€T)=7 THEN 740 

670 IF T=4 AND RND¢.8 THEN S40 

G0 DISP ’=’, 

90 X¢CL)=6 

700 GOTO 760 

7i0 IF T=2 THEN 480 


® 720 GOTO 550 
730 IF f=4 THEN 620 


740 IF 1l=3 AND X(4)<6 THEN 680 
750 GOTO 590 

760 J=I+3 

770 NEXT I 

780 DISP TABC42); 


770 P=0 “Set up value of payoff 
SOO IF X€4)4#4 THEN 820 -~Check for first symbol being a 
cherry 
840 P=e 
SeQ IF XC4i)=KC2) THEN 880 
830 IF P?0 THEN 41070 
840 S=S-E 
GOO BEEP 2@20,.2 @ DISP USING 8460 ; “LOS 
LSS 


860 IMAGE k,6x,’ $’,mdddd.dd 
670 GOTO 1440 
G80 IF X(2)=X(3) THEN 930 
890 IF X(4)=4 THEN 940 
900 IF X(3)<6 THEN P=3 @ COTO 4070 
940 PxS 
920 GOTO 4070 
930 IF X(4)=4 THEN P=8 ® GOTO 41070 
940 IF X€4))92 THEN 970 
959 P=40 
R 960 GOTO 4070 
970 IF X(4)93 THEN 4000 
980 P=iS 
990 GOTO 4070 
4000 IF X(4))4 THEN 4030 
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[Ss SECUdJPROGRAM LISTING $$» 


4040 
1020 
4030 
4.040 
1050 
£060 
4070 
10890 
4090 


14400 
1410 
4120 
1430 
14140 


44150 
£4650 
14.70 
1480 
1490 
1:200 
4216 
Lee 

17230 
4240 
£256 
1260 
4.270 


42630 
1270 


1300 
43410 
1320 
1.43350 


P? e302 () 

GOTO 1070 

IF X¢€4)>5 THEN 1069 

P= 0 

COTO 4070 

P=400 

W=P XE 

$=S+W-k 

REEP 660,.2 @ DISP USING 14100 ;, ‘WI 

N° ,W,S 

IMAGE K,ddD.DD,’ $$’ ,MDdDD.DD 

DELAY 2 

ON ERROR GOTO 1440 

DISP TAK(C10); 

DISF ’ ’;CHR#(208);’ull or % ;CHRECe 

1405 

INPUT ‘top? ’,°P’ ;Q4% 

Q$=UPRCS(QS$L1,41) 

IF @4=°P’ THEN 259 

ITF @$=7S% THEN 4490 ELSE 1110 

QN ERROR GOTO 1200 

DISP TAR(CS) ; 

INPUT “Try another machine?’ ,’Y% ;Q% 

Qk=UPRC$CQ$T 4,49) 

TF @$=’Y¥"° THEN i120 

IF @$=/N’ THEN 4250 ELSE 1190 

DELAY 3 

DISP TARC?7); 

IF S<¢G THEN DISP USING “K,DDD.DD’ ; 
‘Total losses =’ ,AHS(CS) 

IF S=0 THEN DISP ‘You broke even. ’ 

IF $90 THEN DISP USING “HK, DDD. DD’ ; 
‘Total winnings =%,5 

DISP TARCLL) ; 

DISP “END OF GAME ’ 

DISP 

STOP 








® | ~—Sw| PROGRAM DESCRIPTION. 


BREAK-OUT 


In this game the player uses a paddle and ball to knock out as many bricks as 
possible. The playing field is displayed on a video screen using the HP 82163A 
Video Interface. The paddle is controlled by using the "up" and "down" arrow 
keys. There are six layers of bricks. Bricks that are farther back are worth 
more points. There are five balls for each game. Bonuses are given for any 
leftover balls when all the bricks are gone. 


There are two versions of the game, "Break-out" and "Break-thru". The differ- 
ence between them is that in Break-out, the ball bounces back when it knocks 
out a brick, and in Break-thru the ball continues on its original path. In 
addition, there is an auto-play mode available, which will show the game run- 
ning without user interface. 


To play the game, assign the printer to the HP 82163A Video Interface and set 
the display device to the LCD. Run the program. The first prompt will be for 
the version of the game you wish to play: Break»out or Break-thru. Press "0" 
for Break-out, or "T" for Break-thru. Then press "A" for Auto-play mode, or 
"N" for regular play. Press any key to serve the ball, and use the "up" and 
"down" arrows to move the paddle. If you miss with the first ball and require 
a second, the serve will occur after you press any key. 





sd J VARTABLE NAMESL___ 
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| _JINOTES AND REFERENCESl___ 


Thanks to Ed Groth for the original program, Jack Applin IV and Raan Young 
of CVD for their contributions. 





| CTLCUdJ PROGRAM LISTINGLO 


| ; 


4.0 
20 
30 
4} 
50 
& 0} 
7 


8 0 


70 


400 
144106 


120 
430 
140 
150 
160 


4,7 0 


1.80 
4.90 


2 OG 


240 


y 
Fd o 


360 


330 
57) 


| Hreakout~ video game 

! Requires 82163A 

! Revision 44/01/82 

OPTION KBASE 4 

DIM ESC LI,LEL41,B$141,S$L411,C#141,4 

$l2) ,A0$L 3] , ASHI SI] ,ASHIS] ,KSLil ,USl 

61, D$[6] 

INTEGER 1T¢6,43),X,Y,X0,Y0,1,3,S,B,™ 
»>U,V,P,T,H 

ES=CHRS(27) @ L&=CHRG(10) @ BRS=CHRS 

(8B) @ S#=CHRE (160) 

CE=ESATESAEGA ( / 

AR=EGA’R! @ AUS=AGACHRHECO)D @ ABS=AS 

ACHRE(3) @ ASF=AGACHR HE CS) 

US=SHALGALBALGARGAS 7 

D$S=/ “ALMALGAL BARGASGS 

H= Q 

RANDOMIZE 

PRINTER IS ":TV" @ PWIDTH INF @ PRI 

NT C4 

PRINT ‘Do you wish ta play Kreak~Ou 

t or HBreak-Thru? Break~/ ; 

K$=UPRCO#8CKEY S$) 

TIF K$="0" THEN M=-4 @ PRINT "Out" @ 
GOTO 220 

IF K#="T" THEN M=i @ PRINT "Thru" @ 
GOTO 220 

GOTO 480 

PRINT 

PRINT “Auto or Normal mode? "; 

K$=UPROSCKEY $) 

Tr Ké="A" THEN A=. @ PRINT "Auto" @ 
GOTO $00 

TF Kd="N" THEN A=0 @ PRINT "Normal" 
® GOTO 289 

GOTO 240 

PRINT 

PRINT ‘Use up/down arrows to move 

paddle; any key to serve ball’ 

i Construct playing board 

WAIT S @ PRINT Cs 

! Kuild frame 

FOR Y=0 TO 34 @ PRINT AY;CHRSCT) ; CH 

R$C0);S56; @ NEAT I 

FOR I=i TO 43 & PRINT AS ;CHRS(31)5C 

HRECT 5956; &@ NEXT I 

FOR [#34 70 0 STEP ~4 @ PRINT A$ ;CH 

RCT) ,CHR$¢14);56; @ NEXT I 

| Build targets 

FOR J=4 TO 6 @ FOR T=41 TO 143 

TC), D4 

PRINT A$; CHREC2KI+45) ,;CHRSCIKC4-MOD 
CJ,2)0+043-MOD CT, 20K CT-1) ¥MOD CS , 2) 
);, 64%; 


“Clear, cursor off 


47 
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400 
440 


42) 
430 


440) 


4°,Q 
460 
47) 
460 
430 


40 
D2 0 
530 
540 
550 
560 
570 
580 


600 


610 
62u 


5S0 
HAD 
650 
660 
&70 
30 
579 
700 


7A 
720) 
7 3G 
740 
759 
760 
77% 
780 
290 
0 0 
8410 


3.50 


NEXT I @® NEXT J 

! Initialize ball, score, paddle, t 
arget count 

B,S=0 @ P=? @ T=78 

| Serve ball: build paddle, get bal 
1 & coordinates, show score, wait f 
or key 

PRINT AOS ;CHRE(P-41) ;5$;L%;B% 5,56 514; 
hh 554 ; 

R=0 @ H=H+4, @ IF BOS THEN 980 

IF A THEN GOTO 480 

IF KEY$=’% THEN GOTO 470 

GOSUBR 1150 

XO0=44 @ YO=INT C26KXRNDI +2 @ Ue-i @& YV 
=INT CSKRNDO-2 

! Find next point; let paddle move 


X=XO+U @ Y=YO-V 

GOSUKBK 44100 

! Did ball hit walls? 

TF Y¥<2 GR YA? THEN Ve-V @ COTO 780 
! Did ball hit end? 

IF X30 THEN U=-U @ R=i @ GOTO 780 
! Did ball miss paddle? 

TF X<0 THEN GOTO $70 

! Did ball hit paddle? 

TF X=0 AND CYON2>=P-4 AND YONECHP +4 
OR YN\2>=P-4 AND YN2¢=P+4) THEN GOT 
QO 840 

| Kall in target range? 

IF X46 AND X<€=28 AND MODCK,2)=0 T 

HEN GOTO 670 

! Move ball, go find next point 
GOSUR 1650 

GOTO 910 

! Did ball hit target? 

T=(X-46 Neti @ JH¥s\2 

IF NOT TCT,J) THEN GOTO 640 

! Process target hit 

BEEP XX404500,.05 @ T¢L,J)=0 @ S=S+t+ 
(1+3)%2 @ T=T-4 

U= KM 

IF NOT R&R AND MO THEN U=-ARBRS CU) 
GOSUE 4065 

GOSUR 4150 

IF T=0 THEN 91.0 

GOTO S10 

| Process wall or end hit 

X=X0 @ Y=YO @ BEEP 400, .05 

GOTO 640 

! Process paddle hit 

IF V=0Q THEN VeEV+INT CSXRND)~4 

Ue-U @ Y=YO @ X=X0 @ BEEP 600, .05 
TF YON2@¢=P-4 AND VIG GR YONZO=P+i A 
ND YOO THEN Ve-2XSGNCY ) 











840 


85 0 
650 
37 0 
880 
890 
960 


7 4.0 
P20 


739 
940 
750 
769 
7 
780 
970 
1000 


1040 
1020 
oc: 
1040 
1050 
1060 
L070 
1080 
4.090 


44100 
44410 


1420 


1430 
1140 
4450 


1460 


_ LCLCLCUJ PROGRAM LISTING 


VeEV4+INTCOSKRNDI-4 @ ITF ARS(V)>2 THEN 
VeexSGNCY) 

COTO 640 

| Process paddle miss 

KEEP 20,.5 

PRINT ADS;CHRE$CYON\2) 3% 7%; 

GOTO 440 

! Cleared board: show bonus, score, 
restart 

PRINT A$;CHRS(X0) ,;CHRSCYON2) 5% 7, 

PRINT A3%;CHRE(3);’Konus for’ ,; 6-5; ’ 

balls left: °;150*(6-B), 

S=S+iS50*(6-EH) 

GOSUB 41450 

! Out of balls if entered here 

TF SOH THEN H=S 

PRINT A3% ;CHR&(S) 3 ’High: ’ 5H; 

PRINT A3% ;CHKEC7) ;’Again? 7%, 

KS=UPRCHCKEYH) @ IF A THEN Ko="Y" 

IF K=°Y’ THEN PRINT ’Yes’ @ GOTO 3 
10 

IF K#E’N’ THEN COTO 990 

PRINT C$ 

END 

| Move ball subroutine 

PRINT A$;CHRECXO) ,;CHR#SCYON2) 5% 7%; 

PRINT AS; CHRECX) ,;CHRECYN2) 5° XK! ; 

X0=X &@ YO=¥ 

RETURN 

' Move paddle subroutine 

K$=UPRO&CKEY S$) 

IF (K$=""% OR A AND YON2CP) AND Pde 
THEN P=P~-41 @ PRINT AOS, CHRECP-1) 5U 

ws 

Ik (K$=’° OR A AND YONGOP) AND PCA 

2 THEN PRINT AONE; CHRSCP-1)9;,;D8, @ P= 

P+4 

RETURN 

| Show score subroutine 

PRINT AS#;CHRE (415); ’Ball:’ 5B; ’ Sc 
ore: % 35; 


RETURN 
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